﻿Public Class MainForm

    Private Sub btnLoad_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLoad.Click
        Using alm As New AdventureWorksLTModel.AdventureWorksLTEntities
            Dim custs = From c In alm.Customer _
                      Where c.FirstName.Length >= 5

            For Each c In custs
                MsgBox(c.FirstName)
            Next
        End Using
    End Sub
End Class
